home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 1 Issue 2
/
PDCD-1 - Issue 02.iso
/
_utilities
/
utilities
/
002
/
_bilingual
/
!BILINGUAL
/
BT
< prev
next >
Wrap
Text File
|
1990-12-03
|
332b
|
19 lines
*BASIC
LOAD "<file$name>"
OSCLI("SPOOL <file$name>")
LIST
OSCLI("SPOOL")
OSCLI("SetType <file$name> Text")
NEW
10F%=OPENIN("<file$name>"):L%=EXT#F%:CLOSE#F%
20DIM M% L%+10
30OSCLI("Load <file$name> "+STR$~M%)
40F%=OPENOUT("<file$name>")
50FOR K%=M%+6 TO (M%+L%-18)
60IF ?K%<>13 THEN BPUT#F%,?K%
70NEXT
80CLOSE#F%
90END
RUN
*DESKTOP